home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 03 Demos and Info / 4KNOTES.SDA / DIM4RUN.ME (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.1 KB  |  28 lines
  1. 10 PRINT"[147]4-[158]*K* CONTEST?":FORI=1TO1500:NEXT
  2. 20 PRINT"I'M SORRY, I THOUGHT YOU SAID 4-[158]*D*"
  3. 25 PRINT"CONTEST...":FORI=1TO1000:NEXT
  4. 30 PRINT" DIM4[146] -- A MIND EXPANDING EXPERIENCE BY"
  5. 40 PRINT"[155]   STEPHEN L. JUDD [129]-- [153]SJUDD@NWU.EDU"
  6. 50 PRINT"[159]  HTTP://PUBWEB.ACNS.NWU.EDU/%7EJUDD/"
  7. 60 PRINT"WRITTEN DURING FOUR WEEKS, FOUR DAYS"
  8. 70 PRINT"AFTER PHD QUALIFYING EXAMS, STARTING ON"
  9. 80 PRINT"JUNE 4."
  10. 90 PRINT"BE SURE TO TRY THESE TOP SECRET[146] KEYS:"
  11. 100 PRINT"[155]  [4]  [F4]  [D]  [.]  [R/S]  [SPACE]"
  12. 101 PRINT"(BUT YOU DIDN'T HEAR ABOUT THEM FROM ME)"
  13. 102 GOTO 140
  14. 103 PRINT"[155]   [D] (FOURTH LETTER OF THE ALPHABET!)"
  15. 104 PRINT"[155]   [.] (IDENTIFIER 44! NOTE THAT IT"
  16. 105 PRINT"       DOES NOT ALWAYS HAVE AN EFFECT)"
  17. 107 PRINT"[155]   [R/S] (THE 64TH (=4^3) IDENTIFIER!)"
  18. 140 PRINT"(PRESS A KEY)"
  19. 150 GET A$:IF A$="" THEN 150
  20. 560 PRINT"SPECIAL THANKS TO [129]WRONGWAY[146] FOR"
  21. 570 PRINT"SUGGESTING ABCRUNCHER, WHICH MADE THIS"
  22. 580 PRINT"AT LEAST POSSIBLE! (ALBEIT PAINFUL :)"
  23. 590 PRINT"ALSO SPECIAL THANKS TO [FUNGUS][146] FOR"
  24. 600 PRINT"HELPFUL CRUNCHING SUGGESTIONS, EVEN"
  25. 610 PRINT"THOUGH THEY DIDN'T WORK OUT :)."
  26. 620 PRINT"WATCH FOR A FULL DISTRIBUTION INCLUDING"
  27. 630 PRINT"COMPLETE SOURCE AND DOCUMENTATION."
  28.